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- CSP$$WAIT does not return status! What if LIBSGET_VM fails? 


MODULE CSP 
001 '!DYC0001 (IDENT = 'V04-001' 
»MAIN = CLUSTER grhver 
» LANGUAGE (BLISS32) 
g ADDRESS G_MODE (EXTERNAL=GENERAL) 


BEGIN 
TITLE ‘Cluster Server Process = Main Routine’ 


LRA AREER REAR AAEEAAEEEAAAEERAE ETE EREARKAARERERRERAERRER EEE 


elofeloleleleleleleleloleleleleleleolelelelelolo) 
PIMPIN 2 2 2S 2 OO OM HK OOD OOCCOOCO 


H 1 , 9 ‘ 
Pet ¢ 8 7 
4 4 0 ¢ 
3 5 > ® 3 
3 : 6 0 3 
3 7-1 7 ® $ 
3 8 & 0 : 
; 9 9 0 : 
3 10 9 0 . 
: 1} 1 ! : 
; 18 g 1 : 
: 14 4 1 : 
ee a * : 
; 16 6 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * : 
3 17 7 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * : 
; + . : " ALL RIGHTS RESERVED. * : 
4 ‘* « 7 
3 20 0 1! me SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
"eee i 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ‘ 
pi ae 2 + te INC LUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
“eee + 3 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* : 
; 24 4 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; 35 2 is TRANSFERRED. * : 
3 if & . 
eee Sa 027 1 !«* phe ote IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; 28 0028 1 !«* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
2 0029 1 !* CORPORATION. * : 
; 30 0030 1 !«* * ‘ 
3 31 0031 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * ; 
3 32 0032 1 !* SGFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; 33 0033 1 !* « : 
3 34 0034 1 !« * : 
: 35 0035 1 leak eee eer eee eee RAE AAA AAA AERA AAA HATER AAAERRARKREHAAAeeRAe AEE P 
; 36 0036 1 !++ : 
8 37 0037 1! ; 
; 4 aie } FACILITY: Cluster Server Process 

s 60 0040 1 ! ABSTRACT: Process context for coqretont tng the actions of cluster 

; t 94 : servers and event logging in a VAXcluster. 

s 65 0043 1 ! AUTHOR: Paul R. Beck 

: 66 0044 1! 

; or Boece ' : DATE: 03-MAR-1983 Last Edit: 24-AUG-1983 14:32 

3: 67 0047 1 ! REVISION HISTORY: 

3001 !pYcO002 0048 1 ! v04-002 DYC0002 Dennis Y. Cha 20-Dec-1984 

7002 'DYCO002 0049 1! Chansed Last modification (vO4-001) to create a thread to check 

3003 !DYc0002 0050 1! software version and send OPCOM moasege te to eliminate startup 

3004 'DYc0002 0051 1! sequence dependency between CSP and 

3005 'DYC0002 $026 1! , 

3006 !pvc0d002 0055 1! v04--001 DYC0001 Dennis Y. Chan 26-Nov-1984 

2007 !DYCO002 0054 1! Added check for different versions of VMS in cluster and 

g008 1 DYCOONE Bhee : output informational message to opcom. 

3; 69 0057 1! v03-010 ADE0003 Alan D. Eldridge 24-Apr-1984 
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v03-009 


v03-008 


v0%-007 


v03-006 


v03-005 


v03-004 


v03-003 


v03-002 


v03-001 


1 
-0c¢t-1984 1 


Cleaned up some error paths. Use CSPSGL_CURCTX instead 
of CLX where appropriate. 


RSHO125 R. Scott Hanna 22-Mar-1984 
Remove call to CSPSQUORUM_INIT. 
ADE0002 Alan D 28-Feb-1983 


. Eldridge 
coange name of CSPSQUORUM to CePSQUORUM_ INIT. Change name 
of CSPSSOPCOM to CSPSTELL_OPCOM. 


ADE0001 Alan D. Eldridge 11-Dec-1983 
Use the ACKMSG service of the connection manager instead 
of DECnet for inter-node communication. 


PRB0248 Paul Beck 8-Sep-1983 
Fix problem with the way CSP waits for DECnet availability. 


RSHO060 R. Scott Hanna 24-AUG-1983 
Add call to CSPSQUORUM during initialization. 


PRB0226 Paul Beck 19=AUG-1983 18:48 
Start up DECnet object asynchronously from the rest of the 
initialization, so the scheduler can be running before 
DECnet has started. Also, remove some excess baggage which 
would > | be needed if DECnet were the permanent mechanism 
instead of just a holding action. 


PRB0226 Paul Beck 9-JUL-1983 16:39 
Get requests from CLUBSL_(SPFL, and allow for nonpaged pool 
(system addresses) therein. Get CSPDEF from LIBS. 


PRBO214 Paul Beck 24-JUN-1983 14:34 
Change SRC$:CSPDEF to SHRLIBS$:CSPDEF 
PRBO0200 6-JUN-1983 21:05 


Paul Beck J 
Change CTX$ symbols to CLX$ to prevent conflict with RCP. 
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EXTERNAL ROUTINE 
FREE V 


IOOmMmMre mr 


OOO « 


CSPS$FORK; 


FORWARD ROUTINE 
EXIT_HANDLER 
KERNEL_INIT, 
KERNEL” CLEANUP 
SCHEDULE 


KERNEL_ENQW, 
CSPSS$CRASH, 
CHECK_SWVERS, 
MUMBLE ; 


a ee ee a ee ee ee ee a eed aed od od 


External References: 


Forward References: 


: NOVALUE 
: NO_REGISTERS, 


' Free virtual memory 


! Get virtual memory 


! 
i 
is 
1 
i 


' Get local request from 
! Kernel routine to call 
' Repert error to OPCOM 


i $ENQW call 


event fla 


! Get 

K neem ! deal located nonpaged 
! Issue commands to 

' Action Routine dispatcher 

Wait for completion AST 

Create new context block 

Delete current context block 

ave current stack in context block 


' Exit handler 


X-11 Bliss-3 


USYSLOA BUESRC IC 


— 
ble CSP code 


Internal completion AST completion 
Create new thread 


! kernel mode initialization 


! kernel mode exit handler cleanup 
! Scheduler for multithreading 


CLUB, if ony 
EXE SDEANONPAGED 


ume execution of thread 


! Res 
: JSB_LINKAGE WOVALUF ! Process new client request 
e 


loadabic Exec code to reply 


' Repor 


t bu 
Check tor ett torent VMS versions in cluster 


from kernel mode 


} 
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| 1 
CSP Cluster Server Process - Main Routine Bsan-t9 5 18:41:50 AX-11 Bliss-32 V4.0-74 Pa 5 
yoe-001 m See 18:60:38 OYSLOA BUREReSCeP oSert - (4) 


+s 169 0369 1 | : 
; 170 0 1! Fixed storage ; 
3 171 0371 1! : 
: 1% O37¢ 1 GLOBAL ; 
eis rs .'o CSP$GL_BASE_FP: LONG, ' save base FP for scheduler ; 
> 174 0374 1 CSP$GL_CSP : LONG ! addr of CLUBSGL_CSPFL queue ; 
> 175 0375 1 CSP$GO-RESUME : VECTOR [2,LONG) i queue of scheduled context blocks ; 
> 176 0376 1 INITIAL (€SP$GQ_RESUME : 
3 ivr 4 aA : gtSPOEG_RESUME 
; 179 $378 1 CSP$GQ_WAIT : VECTOR C2,LONG) ! queue of suspended context blocks : 
: 180 0380 1 INITIAL (ESP$GQ_WAIT ; 
: 181 0381 1 CSP$GQ"WAIT : 
> 182 O38¢ 1 J, : 
2 1835 0383 1 CSP$GL_CURCTX : REF BLOCK C,BYTE] ; ! Current context block ‘ 
: «(184 0384 1 ‘ 
; 185 0385 1 OWN . 
; «186 0386 1 CSP$Q_CLX_CSD: VECTOR (2,LONG) ! queue of free CLX/CSD blocks : 
; 187 0387 1 INITIAL (CSP$Q_CLX_CSD ° 
; 188 0388 1 CSP$Q_CLX_CSD ° 
: 189 0389 1 j, ; 
; 190 0390 1 EXIT_REASON _: LONG, ! reason returned to exit handler : 
> 191 0391 1 EXIT“HANDLER_BLOCK : 
; 192 b338 1 : VECTOR (4,LONG] ! define exit handler : 
; 193 0393 1 INITIAL (6,EXIT_HANDLER ; 
: 194 0394 1 1 EXIT “REASON : 
; 195 0395 1 j : 
3; 196 0396 1 LOCK_STATUS BLOCK 4 .vTed, ! lock status block plus value block : 
; 6197 0397 1 LOCK_BUFFER VECTOR ye » | text of lock resource name : 
; 198 0398 1 LOCK_NAME VECTOR LONG ! working “escriptor for lock_buffer : 
> 199 0399 1 INITIAL (6,LOCK BUFFER), : 
; 200 0400 1 LOCK_NAME_DESC: VECTOR [2 Ons? ! initial descriptor for lock_buffer ‘ 
> 201 0401 1 INITIAL ($1,LOCK BUFFER), : 
: 202 0402 1 STARTUP_TIME : VECTOR £2.LONG - | system time for value block ; 
; 203 0405 1 BASE_1058 VECTO -LONGJ, ! IOSB for CSP*s Q10s : 
: 204 0404 1 BASE_EFN BYTE ; ! allocated event flag for use by CSP : 
: She 0405 1 . 
; 206 0406 1 ; 
; 207 0407 1! : 
; 208 0408 1 ! Macro to issue call with arguments from kernel mode. : 
> 209 0409 1 | : 
3 $19 : pete ' a KRNL_CALL (K_ROUTINE) = . 
3 $16 ” otis 1 EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE) ; : 
3 els m 0415 1 BUILTIN SP ; ° 
; 214 M0414 1 : 
: <9 M0415 1 SYSSCMKRNL (K ROUTINE , .SP , ZLENGTH - 1 : 
; 216 Mm O41 1 XIF ZLENGTH GTR { XTHEN , ZREMAINING ZF 1) : 
: uz 0417 1 ENDX ; : 
; 218 edt 1 : 
; $35 be 56 : MACRO ELSEIF = ELSE IF & ; ° 
; $31 be53 1 ROUTINE FLUSH_LISTING : NOVALUE = : Force output to .LIS file during : 
3; @ee 0422 1 RETURN ; ! compile : 


-TITLE CSP Cluster Server Process - Main Routine 


Cluster Server Process = Main Routine b- Jan-1985 19:6} +39 AX-11 Of tee escke re 
“0c t-1984 1 4 SYSLOA.BUGSRCICSP. B35: 


- IDENT \v04-001\ 
«PSECT SOWNS,NOEXE,2 
00990000" 00000000* 00000 CSP$a_CLx_Csp: 
ADDRESS CSP$O =CLX_CSD, CSP$Q_CLX_CSD 
00008 EXIT -REASON: — 
00000000 0000C ExIT —_—, BLOCK: 
09 19 «ADDRESS EXIT_HANDLER 
3 -LONG 1 
: Bb sADDRESS EXIT_REASON 


C LOCK STATUS: 


CSP 
Vv04=001 


.BLKB 24 
00034 LOCK BUFFER: . 
00055 “BLKB 
00000000 00054 Lock NAME: “ats 
00000000" 00058 ADDRESS LOCK_BUFFER 
0000001F 0005C LOCK_NAME DESC: , 
00000000' 00060 * ADDRESS LOCK_BUFFER 
00064 STARTUP TIME : 
0006C BASE_10SB: 
LKB 8 
00074 BASE _EFN: 
.BLKB 


-PSECT S$GLOBAL$,NOEXE,2 
00000 CSPSGL OreLRS . 
00004 CSPS$GL_CSPQ:: 


LKB 
00000000* 00000000* 00008 csPsca RESUME 
ADDRESS CSP$GQ_RESUME, CSP$GQ_RESUME 
00000000' 00000000' 00010 csPsGa_wAIT 
“ADDRESS CSP$GQ_WAIT, CSPS$GO_WAIT 
00018 CSPSGL -CORCTX: 


LKB 4 
-EXTRN LIBSFREE_VM, LIBSGET_VM 
EXTRN LIBSGET ae EXESDE ANONPAGED 
-EXTRN EXESCSP™ COMMAND 
-EXTRN CSPSSCA Att AC 
-EXTRN CSPS$S$WAI ESPSSCREATE CTX 
.EXTRN CSPSSDEL Efe. CTX 
~EXTRN COPSSSAVE. § 

XTRN CSP PeShe Sune aE PSSFORK 


-PSECT S$CODES,NOWRT,2 


0000 00000 FLUSH_LISTING: 
-WORD Save nothing 


; 0421 


CSP 
v04-001 


3; Routine Size: 


s @22 
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3 bytes, Routine Base: $CODE$ + 0000 


0423 1 


04 00002 


1 
-Jan-19 
“Oct-19 


5 19:61:30 
4 13:00:24 


RET 
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CSP.B32; 


2 
1 


<o 


Cluster Server Process = Main Routine 
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-—$OV0OnNOu 


oo 
oo 
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POPIPIPINIPOPOPSP NP PENPyns — rorofnofenofrory» 


Ft et eh hk he 


AWWA 


FWN "CO OONOULS Ww 


VAT 
WhO OOnNOu 


WR —fNonorofofonononorny 


NE CLUSTER_SERVER: NOVALUE = 


CLX  °: REF BLOCK C,BYTE) ; 
BUILTIN 
FP; 


AX-11 Bliss-3 
SYSLOA.BUGSRC 


<o- 


pene fomptetton status 
LX bloc 


The maximum number of requests and the maximum CSD size for each 


request are each fixed values. 
CSD per request. 


' 

' 

' 

incr 1 FROM 1 TO CSPSK_MAX_FLWCTL 
IF (CLX = CSPSSCREATE_CTX ()) 

RETURN (SS$_INSFMEM) 


Therefore, allocate and queue one 


IF (STATUS = LIBSGET_VM (ZREF (CSPSK_MAX_CSDLNG), CLX CCLX$A_PO_CSDJ)) 
INSQUE (.CLX, .CSP$Q_CLX_CSD) 


ELSE 
RETURN (.STATUS) ; 


BEGIN 


! 
i This message will never make it 
} Leave it there for now. DYC 12 


CSPSTELL_OPCOM 


ause OPCOM has not started yet. 


(ZASTID 'ZCSP-E-NOCLUSTER, Cluster Server Process exiting: no cluster’) ; 


SEXIT (CODE = SS$_ABORT) ; 
END ; 


' 
Grab an event flag 


IF NOT (STATUS = LIBSGET_EF (BASE_EFN) ) THEN RETURN .STATUS ; 


! Declare an exit handler to deal with emergencies. In particular, it should 
! empty the queue CLUBSGL_CSPFL and restore the blocks to nonpaged pool. 


iF NOT (STATUS = SDCLEXH (DESBLK = EXIT_HANDLER_BLOCK)) 


RETURN .STATUS ; 


a 


kK 1 


SP Cluster Se:ver Process - Main Routine -Jan-1985 18:41:50 AX-11 Bliss-32 V4.0-74 Pa 3 
v04-001 eats Hi 13:60:30 USYSLOA BUGERC ICAP O30, ts (5) 
ae i é) 0481 ! 

3 sie pees Set up a condition handler to deal with problems. (Needed?) 

: 276 0484 2 iMUMBLE ; 

; 277 te 

: 278 0486 : eet 

; ey 0487 ! Request notification of cluster events. 

; 280 0488 ! 

; «281 0489 'MUMBLE ; 

; see 0490 

3; eo 0491 ‘ 

3001 !DYCO002 049 ! Set up a new thread to check for different versions of VMS in cluster 

300 'DYCO002 049 ! 

3003 !DYCO002 0494 CSPSGL_BASE_FP = .FP; ! Set address for stack save 

3004 'DYCO00 0495 

3005 !pyYCc000 0496 § IF CSPSSFORK() EQL 0 THEN ! Parent 

; 'pYCO00 0497 

3;007 !DYCOQ002 0498 2! 

2008 !DYC0002 0499 2! Wait for a request. A request will arrive as an incoming connect 

:009 !DYC0002 0500 2! request, which is validated, followed by a buffer of data. This 

2010 !DYCQ002 0501 2! data is passed along to the server associated with the connect 

3011 !DYC0002 B208 § ' request. 

Ng ‘pyvcodod2 050 ! 

3013 !pYCQ002 0504 2 WHILE 1 DO SCHEDULE() 

3014 !pYC000 0505 2 

3015 !DYC000 0506 2 ELSE ' New thread 

3016 !DYCO002 0507 ; 

3017 !pYCO002 0508 BEGIN 

3018 !DYCO00 0509 3 IF NOT CHECK_SWVERS() THEN ! Check software version 

3019 'pYC000 0510 3 

3020 !DYCO0QO02 0511 3! Send message to consoles through OPCOM and if it is not there yet 

aH thoes b218 : try every 10 seconds until the message is sent or an error has occured. 
3023 !DYCOO02 0514 4 WHILE (CSPSTELL_OPCOM(ZASCID "ZCSP-I-DIFSWVER, different versions of VMS exist in cluster’) 
3024 !DYCO002 0515 3 EQL OPCS_NOPERATOR) DO 

3025 !DYCO002 0516 4 GIN 

3026 !DYCO002 0517 4 L ; 
3027 !pvc0002 0518 4 INTERVAL : VECTOR(C2,LONG); ! Q-word for delta time 
3028 !DYC0002 0519 4 

2029 !DYC0002 P 0520 5 IF (STATUS = SBINTIM(TIMBUF=ZASCID °0000 00:00:10.00', 
3030 !DYC000 0521 4 TIMADR=INTERVAL)) NEQ SS$_NORMAL THEN 
3031 'pyYCc000 b25§ 4 EXITLOOP 

3032 !DYCO002 P 05 5 ELSE IF (STATUS = SSETIMR(DAYTIM=INTERVAL, 

3033 i pv ChOOS P b3se 5 ASTADR=CS°SSRE SUME 

3034 ‘cyco002 0525 4 REQIDT=.CSPS$GL_CURCTX)) NEQ SS$_NORMAL THEN 
3035 !DyYC0002 b25$ 4 EXITLOOP 

3036 !pYc0002 05 4 

3037 !DYCQ002 0528 4 CSPSSWAIT(); ! Wait 10 seconds 

3038 !DYC0002 B26? 3 END; 

3039 !pyc0002 0530 ; CSPSSDELETE_CTX(); ' Delete own clx 

3040 'pYCO002 0531 FP = .CSPS$GC_BASE_FP; i Return to SCHEDULE 

3041 'pvc0002 bess 2 END; 

: 290-6 0533 1 END ; 
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ASCII 


-ASCII 
oe 
- ADDR 

“ASCII 


ASCII 
- LONG 
«ADDRESS P 
ASCII 


- LONG 
«ADDRESS P.AAF 


-PSECT 


YSLOA.BUGSRCICSP.B32; 


\SZCSP-E-NOCLUSTER, Cluster Server Process\ 


\ exiting: no cluster\ 
17694780 


\ZCSP=1-DIFSWVER, different versions of V\ 


\MS exist in cluster\<0> 
or 

\0000- 00:00:10.00\ 
17694736 

SYSSCMKRNL, SYSSEXIT 
sVSSOELE XN. SYSSBINTIM 
SYSSSETIMR 

SCODES,NOWRT,2 


Save R2,R3,R4,R5,R6,R7,RE.RO,R10.R11 
#16, SP 

“i, 1 

CSPSSCREATE_CTX 

0, CLX 

asp) 


jeseet vm 


(CLX 
096, 

SP 

* STATUS 
At os. 4$ 
L 

ép) 


eo 


16 
a 
a 
no 
$T 
eux) at acsPsa -CLX_CSD 
1$ 
(SP 
RNEL INIT 
SYSSCMKRNL 
1 


$ 
AAA 
CSPSTELL_OPCOM 


#i, SYSSEXIT 
Bas EFN 
» Cieseer JEF 


Nin 
EXIT ae BLOCK 
. SYSSOCLERH 


in 


<o 


a 1 
Cluster Server Process = Main Routine gu Jon 198) 18:41:50 oe Bliss-32 V4.0- 


CSP 74 
v04=001 SYSLOA.BUGSRC 8p: 832; 


3 50 09 7 MOVL RO. riyAt 
—E E 4$ BLBC STAT 
0000' cf D pO O007¢ MOVL P, cBPscL BASE_FP 
000000006 00 i 1 CALLS a0 CSPSSFORK 
6 A BNEG 6 
0000v CF 09 re ¢ 5$ CALLS #0. SCHEDULE 
0000v CF 99 Fe 9 93 6$ CALLS #0, CHECK SWVERS 
GF f 9 BLBS =O, 8S 
0000' CF SF 00098 7$ PUSHAB p. Aac 
O000v CF 1 FB OO9F CALLS CSPSTELL OPCOM 
paareh gp > 92 000K BNEG to ~ 
08 AE 9F OOOAD PUSHAB INTERVAL 
0000" CF 9F 00080 PUSHAB P.AAE 
000000006 00 02 FB 00084 CALLS #2, SYSSBINTIN 
6E D0 90088 MOVL RO. 
01 of D1 OOOBE CMPL Ards” n 
2? 12 000C1 BNEQ 
0000" CF DD 000C3 PUSHL CSP$GL_CURCTX 
000000006 00 9F 990¢7 PUSHAB CSP$SRESUME 
10 AE 9F 000CD PUSHAB INTERVAL 
7E D4 00000 CLRL 
000000006 00 04 FB 90002 CALLS #4. SYSSSETIMR 
; 6E 50 00 00009 MOVL RO, STAT 
0? 6E D1 000DC CMPL ‘STATUS, nh 
09 12 O00DF BNEQ 
000000006 00 99 fe OO0E | CALLS #0, CSPSS$WAIT 
000000006 00 16 OOOEA 8s: JSB CSPSSDELETE_CTX 
5D 0000" CF pO 000FO MOVL § CSPSGL_BASE"FP, FP 
04 OO0FS 9$: RET 


; Routine Size: 246 bytes, Routine Base: $CODE$ + 0003 


; 291 0534 1 


See 


0525 


N 1 
CSP Cluster Server Process = Main Routine 5-gen-13 5 18:41:50 corte EL V4.0-742 Page 12 
v04-001 SCHEDULE = schedule new requests, resume suspen 2-0ct-1984 15:00:24 SYSLOA.BUGSRC JCSP.832;1 (6) 
> 293 0535 1 %SBITL ‘SCHEDULE - schedule new requests, resume suspended threads’ 
> 294 0536 1 ROUTINE SCHEDULE: NO_REGISTERS = 
; 295 0537 1 
> 2% 0538 1 !+4 
; evr 0539 1! : 
; 298 0540 1 ! SCHEDULE is the thread scheduler. It hibernates when there is nothing to do. 
; $38 p24 When wakened, it removes items from one of the following queues: 
ae!) $828 7 1. New Requests = containing buffers which are sent off to the 
; 306 0544 1! appropriate servers. 
3 tor R202 ’ 2. Thread Resumptions = containing context blocks to be resumed. 
; 398 0547 1! It continues to service these queues until both are empty, then 
; 306 0548 1! hibernates once more. 
s Sor 0549 1! 
; 308 0550 1 ! CALLING SEQUENCE: 
; 309 0551 1! CALL 
: 310 b2e8 1! 
s 31% 055 1 ! FORMAL PARAMETERS: 
5 2 0554 1! None. 
s SS 0555 1! 
; 36 0556 1 ! COMPLETION CODES: 
ite 0537 1! None. SCHEDULE runs ad nauseum. 
; 3 0558 1 !<- 
s Sue 0559 2 BEGIN 
: 318 0560 2 LOCAL 
; 319 0561 2 CSD : REF BLOCK C,BYTEI, ! new local request 
; 320 0562 2 STATUS ; 
ey 0563 2 
;. hee 0564 2 BUILTIN FP ; 
-_:: 0565 2! ; ; 
>; 324 0566 2! Save the frame pointer, enabling the scheduler to be reentered from 
; iee 0567 2! the context save routines. 
5 326 0568 2! 
; 327 0569 2 CSPSGL_BASE_FP = .FP ; 
: See 0570 2 
; Sev 0571 2! ; 
; 330 0572 2! Try for something to do, and hibernate if there's nothing. 
: $3) B2e7 § If a thread is active (€SPS$GL_CURCTX non-zero) then there's a bug. 
s 39 0575 2 WHILE .CSPS$GL_CURCTX EQL 0 
: 334 0576 2 00 
3 332 b2o8 5 IF NOT REMQUE (.CSP$GOQ_RESUME, CSPSGL_CURCTX) THEN 
s Sor 0579 ¢ ! Resume a unpeneee thread. Context block has been placed in the 
: $35 Bens § grant queue by an AST. 
3; 340 B26 2 : ** Note that RESUME _THREAD does not return in-line ** 
; 323 Beer 2 ** the scheduler will be reentered from the top ee 
3; «343 0585 : IF TESTBITCC (CSP$GL_CURCTX CCLX$V_QUEUED]) 
: 344 0586 THEN CSPS$CRASH (SS$"NOPRIVSTRT + T6) 
; 4345 0587 ELSE RESUME_THREAD (J 
: 346 0588 ELSE 
3; 347 0589 2 ' , 
; 348 0590 2 ! If we have a free process space CSD then service a new request 
: 349 0591 2 i 


2 
CSP Cluster Server Process = Main Routine b- Jan-1985 
v04-001 SCHEDULE - schedule new requests, resume suspen 2-0ct-1984 
s 350 8238 IF KRNL_CALL CRERQUE CSD) THEN 
te >)! 059 NEW_REQUEST ( 
3 2g 0594 
3; 35 0595 SHIBER ; 
3; 354 0596 
: $22 0397 3 at ae (S$S$_BADPARAM) ; 
, 36 0598 < NO; 
3; 357 0599 1 


~EXTRN 
0000 00000 saan 
0000" CF 5D 0 00002 MOVL 
0000" CF D5 00007 18: TSTL 
46 12 00008 BNEQ 
0000" CF 0000" DF OF 0000D REMQUE 
1D 1D 00014 BVS 
50 0000" CF DO 00016 MOVL 
0c OB Ad 00 Fe 00018 BBSC 
7E 2810 8F 3C 00020 MOVZWL 
Q000v CF 01 FB 00025 CALLS 
DB 11 0002A BRB 
0000v CF 00 FB 0002C 2$: CALLS 
D4 11 00031 BRB 
7E D4 00033 38: CLRL 
5E DD 00035 PUSHL 
QOOOV CF OF et 4 PUSHAB 
00000000G 9F 03 FB 00038 CALLS 
05 50 Fe Se BLBC 
0000vV 30 0004 BSBW 
BD 11 00048 BRB 
000000006 00 00 FB O004A 4$: CALLS 
B4 11 00051 BRB 
14 DD 00053 5$: PUSHL 
0000v CF 01 FB 00055 CALLS 
50 04 OO05A CLRL 
04 0005C RET 


; Routine Size: 93 bytes, Routine Base: S$CODES + O0F9 


; 358 0609 1 


18:41:50 VAX=11 Bliss-32 v4.0-74 
18:60:38 $Re4c 


SYSLOA.BUGSRCJCSP.B32; 


SYSSHIBER 


reve nothin ng 
CSP$GL_BASE_FP 
CSPSGL CURTTX 
@CSP$GQ_RESUME, CSPS$GL_CURCTX 


CSPSGL CURCTX RO 
i625 LITRO 2$ 


(p5 
eee oss RASH 

#0, RESUME_THREAD 

-(SP) 

REMQUE CSD 

#3, @#SYSSCMKRNL 

NEW_REQUEST 

#0, SYSSHIBER 

1$ 


#20 
#1, CSPSS$CRASH 
RO 


2 
CSP Cluster Server Process = Main Routine b-Jan-19 5 18:41:50 AX-11 Bliss-32 V4.0-74 Page 14 C; 
v04-001 NEW_REQUEST = process a new request 7320-198, 13:60:38 SYSLOATBUGERCICEP 632, . (7) v 
: 360 0601 1 ZSBITL "NEW_REQUEST = process a new request’ ; 
: 561 ee 1 ROUTINE NEW REQUEST : JSB_LINKAGE NOVALUE = . 
; Jee 0605 1 !4¢ ; 
: 368 0604 1 i : 
> 364 0605 1 ! Dispatch a new execution thread . : 
s 365 pene 1! 3 
; 360 0607 1! 3 
: 307 0608 1 ! CALLING SEQUENCE: : 
; 368 0609 1! JSB ; 
; 209 0610 1! 3 
; 70 (611 1 = ' FORMAL PARAMETERS: é 
: 3) Belg 1} None 3 
3 72 061 73 3 
; S75 0614 1 !<- 3 
3 fe 0615 2 BEGIN ; 
3 75 0616 § LOCAL 5 
3.)6| (6S 0617 CSD : REF BLOCK C,BYTE), ' Context block 3 
3 as Beis ; STATUS ; : 
3 ta O63 : CSD = .CSPSGL_CURCTX CCLX$A_PO_CSD) ; ! Get the PO space CSD ; 
: 381 06 : 
; 382 $653 ! Relocate pointers in CSD, dispatch to action routine for this client, 3 
; $07 bese } respond to EXESCSP_COMMAND when done. : 
3 +H 0626 CSD CCSDSL_SENDOFF] = .CSD CCSDSL_SENDOFF] + .CSD ; ; 
; 386 $34 2 CSD CCSD$L_RECVOFF] = .CSD CSDSL_RECVOFFJ + .CSD ; ‘ 
: $68 Be 4 ; STATUS = CSPSSCALL_ACTION (.CSD) ; : 
3 4 Bea! ; KRNL_CALL (REPLY) ; : 
; 39¢ 063 INSQUE (.CSPSGL_CURCTX, CSP$Q_CLX_CSD) ; ; 
; $3 0634 CSPSGL_CURCTX = 0 ; 3 
: 394 0635 3 
: 395 0636 RETURN 3 
; 396 0637 1 END ; 


52 pb 00000 NEW REQUEST: * 
50 0000' CF pO 0000 MOVL  CSPS$GL_CURCTX, RO : 06 

52 10 AO 00 9900 MOVL. 16(RO)> CSD ; 
16 A2 52 CO 00008 ADDL2 CSD, ge (CSD) > 0626 
1E Ad 30 CO 0000F ADDL2 CSD. 30(CSD) + 0627 
000000006 0 16 00013 JSB CSPS$SCALL_ACTION ; 96 9 
E D4 00019 CLRL 3s = ( SP) : 1 

SE pp 0018 PUSHL SP ; 

0000v cr F 0001D PUSHAB REPLY : 

000000006 9F 3 FB 0 1 CALLS #3, @#SYSSCMKRNL ; 
0000' CF 000' dF OF 8 INSQUE a@CSP$GL_CURCTX, CSP$Q_CLX_CSD ; 0633 
000° CF D 5 f CLAL CSP$GL_CURCTX ; 0634 
04 BA 0 : POPR #°M<R2S > 0637 

5 000 RSB ; 


a 
1‘® 
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CSP Clu r Process = Main Routine B-san-1985 19:41:30 AX-11 Oh ieeets V4.0-74 Page 
v04-001 NEW process a new request Oct-1984 15:00:24 SYSLOA.BUGSRCICSP.B32; 

; Routine Size: 54 bytes, Routine Base: S$CODE$ + 0156 


; 397 0638 1 


| ade eke eee et ek 


AAAS PINIPINONPININDDY 2 SS tS OS OS Oe 


RS eM eee he oe 
Ww 


rw 
-—o”o 


Cluster Server Process = Main Routine bs an-1985 1 0 AX-11 Bliss-32 v4.0-74 Page 16 
REPLY = Call loadable Exec code to finish block =bete 71382 13:40 30 eVsuoa bueeRescee: B32; . (8) 

39 1 ZSBITL ‘REPLY = Call loadable Exec code to finish block transfer’ : 
640 1 ROUTINE REPLY = FH 
uy | i : 
rah 1 ' Client is done. Copy the response (if any) and give then SO space CSP back ; 
644 1! to the loadable Exec code. ; 
645 1! F 

0646 1! 3 
0647 1 ! CALLING re ENCE: $ 
ot8 : } CALL in kernel mode at IPL 0 : 
9650 1 | FORMAL PARAMETERS: : 
651 1! None : 
O08 , 3 
0655 1 !<- F 
0654 BEGIN r 
0655 BIND SQO_CSD = .CSPSGL_CURCTX CCLXSA_S $0 £80) : BLOCK (,BYTE), é 
pees PO-CSD = *CSPS$GL~ _CURCTX CCLX$A_PO-CSD) : BLOCK C,BYTE 
bees LOCAL SIZE, COMMAND ; 
0660 SIZE = .PO_CSD CCSDSL_RECVLEN) ; 
0661 
oees 3 | 
0664 i SO_CSD CCSDSL_RECVOFFJ contains a real offset, but PO_CSD CCSDSL_RECVOFF) 
Re22 has been converted to a pointer. 
Os? Determine the proper response code and move whatever data needs moving. 
i 
7 if size + .SO_CSD CCSDSL_RECVOFFJ) GTRU .SO_CSD CCSD$W_SIZE] THEN 
SIZE = .$0 are 3 aa SIZE] = .SO_CSD CCSDSL_RECVOFF) ; 
COMMAND = CSP$_BAD 
END 
ELSEIF .PO_CSD CCSDSL_RECVLEN] NEQ 0 THEN 
nese = CSP$_REPLY 
COMMAND = CSP$_DONE ; 
CHSMOVE Re 2 | 7€ 
CSD CCSDSL_ seventy ' Already a pointer 
68 5° =CSD CCSDSL-RECVOFF) + .SO_CSD ! Calculate pointer 
a | | 
! 
as Pass the CSD back to the loadable Exec CSD code and erase the CSD pointer 
9 2) 

MS EXESCSP_COMMAND (.COMMAND, .CSPSGL_CURCTX CCLXSA_SO_CSD]) ; 

4 CSPSGL_CURCTX CCLX$A_SO_CSDJ = 0 ; 

94 RETURN 1 ; 

95 END ; 
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COMPLETION CODES: 
NA, RU is restored from its saved state. 


é 
Server Process = Main Routine B-san-1985 19:61:30 AX-11 Oh ieee74 HE et od 
HREAD = resume execution of suspended t 2-0ct-1984 15:00: SYSLOA.BUGSRCJCSP.B32; 
ZSBITL ‘RESUME_THREAD - resume execution of suspended thread’ 
ROUTINE RESUME_THREAD = 
lee 
: Restore the context of a thread and resume its execution. The context 
! consists of the stack and registers. The top of the saved stack contains a 
: call frame which points to the resume PC and contains the thread's registers. 
} So by restoring the stack and ‘‘return''ing, we resume the thread. 
i CALLING SEQUENCE: 
CALL (from SCHEDULE only!) 
i FORMAL PARAMETERS: 
None 
i 
i 


BEGIN 
REGISTER 
SAVE _RO,SAVE_R1, ' temp save registers RO,R1 
STATOS ; ! completion status 
BUILTIN 


RO,R1,FP,SP ; 


Thread resumption consists of simply feeger ine the exact stack as it existed 
for the suspended thread, by copying it from the context block. Then kill the 
context block and restore RO,R1. The other registers are restored by the 
RETURN, which is logically a RETURN from CSPSSWAIT. 


SAVE_RO = .CSPSGL_CURCTX CCLXSL_RO) ; 
SAVE-R1 = .CSPSGL-CURCTX CCLXSL~R1) : 


SP = .CSPSGL_BASE_FP - .CSPSGL_CURCTX CCLXSL_STACKSIZE) ; 
=. e 

CHSMOVE (.CSPSGL_CURCTX CCLXSL_STACKSIZE3, .CSPSGL_CURCTX CCLXSA_STACK], .FP) ; 
4 


i peallocate the saved stack, then restore the saved context by 
simply returning to it. 


if TESTBITCC (CSP SGL CURCTX CCL KSV LOCAL stacey) THEN 
LIBSFREE_VM (CSPSGL_CURCTX CCLXSL_STACKSIZEJ, CSPSGL_CURCTX CCLXSA_STACK]) ; 


RO = .SAVE_RO ; 
R1 = ,SAVE-R1 ; 


A rag (.RO) ; ! This restores reg's and resumes thread 


r Server Process - Main Routine 


te 
UME _THREAD = resume execution of suspended t B-Jan-tg 


2 
Jan-1985 1 19:4) :50 rt Oi teeeticte 0-74 Page 


CSP Clus 
voo-001 RE SUM 0:24 EYSLOA BUGSRC ACSP.B32; 


O1FC 00000 RESUME Sat +t 


WORD Sexe R2,R3,R4,R5,R6,R7,RE : 

58 0090" CF 00 000 MOVL CSP L CURT, rb : 

6 : A8 p 00 MOV 40(RB)> § AVE ,A0 : 

SE 0000' CF 8 AaB C3 000 SUBL3 56(RB), CSPSGL_BASE_FP, Se : 
5D 5 B0 01 MOVL sp FP : 

6D 3c «BB 38 O« 01 movC3 (Rr), a60(RB), (FP) : 
0D 0B «AB 03 £4 0001 BBSC #3, 11(RB), : 
3 Aw OF PUSHAB going) : 

Ag OF PUSHAB gir ) : 

000000006 90 9 FB 9 CALLS #2, LIBSFREE _vM : 

0 6 7 90 1$: mova SAVE_RO, R ; 


; Routine Size: 49 bytes, Routine Base: SCODES + O1E5 


; 514 0753 1 


-EXTRN SYSSENQU 


0000 00000 ENTRY KERNEL ENG. Save nothing 
000000006 06 6C FA 00002 CALLG (AP), SYSSENa 


; Routine Size: 10 bytes, Routine Base: S$CODE$S + 0216 


543 


0781 1 


3 Cluster reeryer Process = Main Routine bs gone138? 19:4) +30 one O) te95 74 V4.0-74 
-001 RESUME_THREAD = resume execution of suspended t 2-0ct-! 4 SYSLOA.BUGSRCICSP.832; 
3 1g 7 4 1 

3 \ f 5 ! ZSBTTL ‘KERNEL _ENQW - SENQW call from kernel mode’ 

: 19 g 5 ] GLOBAL ROUTINE KERNEL_ENQW = 

: 3 1 7 § i 46 

3; 3 ¢ 760 1! 

: ; Z $78) ! Issues SENQW call from kernel mode. 

: $25 o7e8 1 | CALLING SEQUENCE: 

; 6 0764 1: CALL 

: 7 8769 1: 

H 8 708 1/ FORMAL PARAMETERS: 

: 529 0767 1: Cali parameters identical to those for SENOW; 

: é th ¢ | the argument List is simply passed on. 

a é 0770 1 i COMPLETION CODES: . 

$ at7 54a As from SENQW, plus SS$_NOPRIV if process lacks CMKRNL. 
: 535 o778 1 ie. 

: 536 0774 BEGIN 

H rH 0775 EXTERNAL ROUTINE precenae ; 

 . e778 BUILTIN $ 

; 539 077 

; 540 0778 'RETURN rome. ( ROUTIN = SYSSENQW, ARGLST = .AP ) ; 

; re 3464 ‘ 3 Sg CALLG (.AP, SYSSENQW) ; 


=o 
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Server Process = Main Royt tne b-Jan-19 | 1¢: 
OPCOM = operator comunications “0c t-1984 1 


ZSBTTL ‘CSPSTELL_OPCOM = operator communications’ 


GLOBAL ROUTINE Cops Telt OPCOM 
ESSAGE : REF VECTOR (2,LONG]) = 


row 
fo 


cone Bliss-3 


oy 


ee 
Send indicated message to operator. 
CALLING SEQUENCE: 
CALL 
FORMAL PARAMETERS: 
Pl = Address of descriptor of message to send. 
COMPLETION CODES: 
N.A. 


BEGIN 
OP _BUF : RoC Cle BYTE) : butter for output 
OPC SB. MS_TYPE] = OPC$ RO _ROST 
MS-TARGET) = OPCSA_ nA RCENFRL, 
OPC “MS"ROSTID) = 0 ) 
OP_DESC : VECTOR LONG : 7 ee of op_buf 
INITIAL Cee ,OP_BUF) ; 


: Copy the message into the message buffer. 
CHSMOVE (.MESSAGE [0], .MESSAGE (1), OP_BUF COPCSL_MS_TEXT]) ; 


' 
Adjust the descriptor according to the size of the message 


OP_DES< [0] = .MESSAGE (0) + (OP_BUF COPCSL_MS_TEXT] - OP_BUF) ; 


Send the message to the operator. Status of SSNDOPR is returned to caller. 
RETURN SSNDOPR ( MSGBUF = OP_DESC ) ; 


-PSECT SOWNS,NOEXE,2 


7 -BLKB 
01 6078 OP_BUF: :BYTE 1 
7A -eyTe 02) 
000 7 “LONG 
00000 a5 oP DESC: LONG 1 
$9000000" FC ~  .ADDRESS OP_BUF 
.EXTRN SYSSSNDOPR 


-PSECT SCODES,NOWRT,2 


SYSLOA.BUGSRC 


V04-001 


; Routine Size: 


586 


C 
C 


lust 
SPST ELL 


33 bytes, 


0823 


1 


C. *Spton Process - Main Routine 


OPCOM = operator communications 


06 86 


000000006 00 


Routine Base: 


007C 000 

046 AC 3 00 
66 0006 
08 C1 0000D 
7E 04 00013 
0000" CF 9F 00015 
02 FB 00019 
04 00020 


SCODES + 0220 


Be 18:00 


:50 come Biiss-3 
726 


SYSLOA BUSERCICSP 65 8334 
CSPSTELL_OPCOM, Save R2,R3,R4,R5,R6 
MESSA 

(RO), hing. OP_BuUF +8 

ae tinh ® pest 


DESC 
27 SYSSSNDOPR 


; Routine Size: 


s 6t2 


<S 


1 


VEN —-OOONOUE 


OOooocoo 


oooooo 
oa 
NOWNS*WN OO 


ooo 
+444 ~ 
ane 


S$ 
KR 


26 bytes, 


0848 1 


BITL ‘EXIT _HANDLER' 


+ 


Image exit handler; 


2 
Server Process = Main Routine bsan-19 5 19:63:30 on we E EE el Og 
DLER 13:00:26 CSP.B832; 


“Oct-19 SYSLOA..BUGSRC 


ROUTINE EXIT"HANDLER : NOVALUE = 


return excess items in CLUBSGL_CSPFL to nonpaged pool. 


Also report the problem. 


CALLING SEQUENCE: 
FORMAL PARAMETERS: 
COMPLETION CODES: 


NL_CALE ( KERNEL_CLE 


DS =sAF 


000000006 9F 


CSPSTELL_OPCOM ( ZASCID "CSP-E-EXIT, Cluster Server Process exiting’ ) ; 


ANUP ) ; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


50 53 4 g9980 P.AAH: .ASCII \CSP-E-EXIT, Cluster Server Process exiti\ 
13 Sie 
00 6? —E O00C ASCII \ng\<02-<0> 

01 08 A 35 P.AAG: .LONG 17694762 

00000000' ADDRESS P.AAH 


-PSECT SCODES,NOWRT,2 


0000 00000 EXIT_HANDLER: 
-WORD Save nothing 


0000° CF 9F 2 Pus a 
1 FB CALLS #1, CSPSTELL_OPCOM 
E 04 A CLAL -(§p) 
SE bo C PUSHL SP 
0000v cf f PUSHAB KERNEL CLEANUP 
3 re et cALS #3, a@SVSSCMKRNL 


Routine Base: S$CODE$S + 0241 
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Server Process - Main Routine 


EL_INIT 


ZSBITL "KERNEL_INIT" 
ROUTINE KERNEL“INIT = 


‘ee 


CALLING SEQUENCE: 
SCMKRNL ( KERNEL_INIT ) 


FORMAL PARAMETERS: 
none 


COMPLETION CODES: 


NAL 
LUSGL_CLUB : REF BLOCK C,BYTE), 
CHSGL ~CURPC 

: REF BLOCK [,BYTE) ; 


IF .CLUSGL_CLUB NEQ 0 THEN 
BEGIN 


' 
' Init the queue 


CSPSGL_CSPO = 


RETURN 1 ; 
END 
ELSE | 
: Not in the cluster 
RETURN O ; 


51 000000006 99 0 0000 


50 0088 1 9 
oosc = Cl 0 OD 
Baap (1 8 0 
000° CF Dd 


Perform kernel mode initialization: 
Initialize queve in CLUB structure, fill im CLUBSGL_CSPIPID. 


0 


0 


CLUSGL_CLUB [CLUBSL_CSPFL) 
CLUSGL~CLUB CCLUBSL~CSPBLI 


i 


2 
-jJan-19 
“Oct-19 


ow 
as 


:50 on Oi teen V4.0-74 
4 $ C 


YSLOA.BUGSRCICSP.832; 


' cluster block 


' current PCB. 


CLUSGL_CLUB CCLUBSL_CSPFL) ; 


CLUSGL_CLUB CCLUBSL_CSPIPID] = .SCHSGL_CURPCB CPCBSL_PID) ; 


-EXTRN CLUSGL_CLUB, SCHSGL_CURPCB 
9000 00000 KERNEL INIT: 


MOVL 


Save nothing 
CLUSGL CLUB. R1 


136(R1), RO 
RO, 140(R1) 
RO, 136<R1) 
RO. CSPSGL_CSPO 


CSP 
v04-001 


: Routine Size: 


658 


Cluster Server Process - Main Routine 
KERNEL_INIT 
50 00000000G 00 D 
0090 g 60 Ad OD 
0 01 OD 
Cc 
50 D 
0 
51 bytes, Routine Base: S$CODES + 0258 


0893 


1 


2 
-jJan-1985 1 
-0¢t-1984 1 


:50 
06: 24 


AX-11 Bliss-3 
SYSLOA.BUGSRC 


" ‘ _CURPCB, RO 


+ pie 


Ri 


= 144(R1) 


1 835: 


C$ 
vC 


; 689 0923 1 


3 
CSP Cluster Server Process = Main Routine B-san-19 5 19: 41:50 AX-11 Oi eeericle pte 
v04-001 KERNEL_CLEANUP -0ct-1984 13:00:24 SYSLOA.BUGSRCICSP. 835 
: 660 0894 1 XSBITL ‘KERNEL_CLEAN 
; 661 0895 1 ROUTINE KERNEL -CL EANUP : NOVALUE = 
: 66 0896 1 
; 66 0897 1 !44 
3; 664 0898 1 ' 
; 665 0899 1! Perform kernel=-mode exit handler stuff: reset the CLUB so that 
; 666 0900 1! it's clear the CSP has disappeared. 
; 667 0901 1! 
; 668 0902 1! CALLING SEQUENCE: 
3; 669 0903 1! 
: 670 0904 1! FORMAL PARAMETERS: 
; 671 0905 1! 
; 67 0906 1 ! COMPLETION CODES: 
: 67 0907 1! 
; 674 0908 1 !-<- 
3; 675 0909 2 BEGIN 
3; 676 0910 2 EXTERNA 
s 6/77 0911 2 CLUSGL CLUB : REF BLOCK C,BYTE] ; 
; 678 0912 2 
; 679 09135 2 LOCAL 
; 680 0914 2 CSD ; 
: 681 0915 2 
: 682 0916 2 CLUSGL_CLUB CCLUBSL_CSPIPID)] = 0; 
: 68° aha é UNTIL REMQUE (.CLUSGL_CLUB CCLUBSL_CSPFLJ, CSD) 
> 685 0919 2 EXESCSP_COMMAND (CSP$_ABORT, .CSD) ; 
: 686 0920 2 
3; 687 0921 2 RETURN ; 
; 688 0922 1 END; 


OFFC 00000 KERNEL_CLEANUP: 
WORD 


pe Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
53 000000006 00 9 00002 MOVAB CLUSGL_CLUB, R3 
50 63 DO 00009 MOVL  CLUSGL~ ety LUB; RO 
0090 C0 D4 0000C CLRL  144(ROT 
50 63 DO 00010 1$: MOVL  CLU$GL_CLUB, RO 
52 0088 00 OF 00013 REMQUE @136(R0), CSD 
OB 1D 00018 BVS 2$ 
51 02 DO OOO1A MOVL 
000000006 00 16 9001p JSB ExESC SP. COMMAND 
—B 11 002 BRB 1$ 
04 00025 2$ RET 


; Routine Size: 38 bytes, Routine Base: S$CODE$ + 028E 
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CS 


CSP 
v04-001 


IO 
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3 
er Server Process - Main Routine b-Jan-1985 19:61:30 ore Bliss-32 V4.0-742 
E_CSD “O0ct-1984 15:00:24 SYSLOA.BUGSRC CSP 1832;1 
ZSBITL_ "REMQUE_CSD' 
ROUTINE REMQUE-CSD 
!¢ 
' 
Go to kernel mode and read an entry from the queue CLUBSGL_CSPFL in the 
system CLUB structure. If we get one, copy it to the CSD sfructure and 
deallocate the nonpaged pool. 


CALLING SEQUENCE: 
STATUS = REMQUE_CSD () 


FORMAL PARAMETERS: 
None 


IMPLICIT OUTPUTS: 
CSP$GL_CURCTX Address of CLX block if work was found 
0 if there’s nothing to do 


COMPLETION CODES: 
0 = queue was empty (should not happen). 


1 = got an entry 
EGIN 
LOCAL QUIT : INITIAL (0), 
SO_CSD : REF BLOCK C,BYTE) ; ! Nonpaged pool CSD ptr 


IF ..CSPSGL_CSPQ EQL 0 THEN RETURN 0 ; 
IF a ae (.CSP$Q_CLX_CSD, CSPSGL_CURCTX) 


! Not in cluster yet 


THE IN 
UNTIL .QUIT 
DO IF REMQUE (..CSPSGL_CSPQ, SO_CSD) 
THEN QUIT = 1 
ELSE IF .SO_CSD Eespé- at NEQ DYNSC_CLU 
OR .SO-CSD CCSD$W"SIZEJ] GTRU CSPSF “MAX opeptne 
THEN ERXESCSP_COMMAND (CSP$_BADCSD,~.SO-CSD) 
ELSE BEGIN 
CSP$GL_ CURCTX CLX$A_SO_CSDJ = .SO_CSD ; 
CSPSGL-CURCTX CCLXSB FLAGS] = 0 ; 
CHSMOVE (. $0. £20 esOSu. SIZE) 


~¢C 
-CSPSGL_ CURCTX CCLX$A_PO_CSDJ 


RETURN 1 ; 
END ; 
= surg (.CSPSGL_CURCTX, CSPS$Q_CLX_CSD) ; 


SP oe -CURCTX = 0; 
AN NO ; 


roe 


Cs 
ve 


Cluster Server Process - Main Routine B-san-19 51 
REMQUE_CSD -0¢t-1984 1 


§: 


OFFC 00000 REMQUE_CSD: 
WORD 


CSP 41:50 AX-11 Bliss-32 V4.0-74 
yo4-001 00:24 eVSLOA buReRciCeP osoe7 


WO Save R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 ; 

58 0000' cf 9 0000 MOVAB CSP$GL_CuRCTX. RB : 

7 04 0 CLRL UIT ; 

EC 88 D3 9 TSTL CSPSGL_CSPQ : 

1 6 C BEQL : 

8 0000" OF oF REMQUE @CSPS$Q_CLX_CSD, CSPSGL_CURCTX : 

49 p or BVS 6$ : 

40 57 0015 1$: BLBS Quit, 5$ : 

20 FC BB SE 18 MOVAB acsPSci_cspa RO : 

Q BO OF 1 REMQUE @0(RO),~S0_C$D : 

0 Ic 0 BVC 2$ ; 

57 01 00 090 MOVL #1, QUIT : 

EE 11 000 BRB 1$ : 

65 =a OA A6 91 00027 28: CMPB =: 10(SO_CSD), #101 : 
08 12 0002¢ BNEQ 38 : 

1000 BF 08 Aé B1 0002E CMP (SO_CSD), #4096 : 
gE if 00 BLEQU 4$ : 

52 $ DO 00036 3s: MOVL $0_CS0, R2 : 

51 03 00 00039 MOVL #37 RI ; 
000000006 00 16 000 § JSB EXESCSP_COMMAND : 

D1 11 0004 BRB 1$ : 

50 68 DO 00044 4$: MOVL § CSPSGL_CURCTX, RO : 

Oc Ad 6 00 00047 MOVL $0_CSD> 12(ROS : 
0B AO 94 00048 CLRB. —s-_: 11 TRO) : 

10 BO 66 08 A6 28 0004E MOVC3 8(S0_CSD), (SO_CSD), a@16(RO) : 
50 01 BO tes byl #i, Ro 3 

0000" CF 00 88 O& 00058 5$ INSQUE @CSPS$GL_CURCTX, CSP$Q_CLX_CSD : 
g D4 te $$ CLRL CSPS$GL_CURCTX 3 

0 D4 00060 75 CLRL = RO. ; 

04 00062 RET : 


; Routine Size: 99 bytes, Routine Base: S$CODES + 0284 


; «745 0978 #1 


C} 
vi 


3 
Cluster Server Process = Main Routine b-san-t9 5 18:41:50 cory Bliss- arscte ee Page 2 
DEANONPAGED = call EXESDEANONPAGED from kernel “0ct-1984 13:00:24 SYSLOA.BUGSRCJICSP. B33 (16) 
3 0979 1 ZSBITL_ ‘DEANONPAGED = call EXESDEANONPAGED from kernel mode’ 
: 03 » : ROUTINE DEANONPAGED (BUFFER) = 
: 9 ; 1 !+4 
3 88 1! 
: 4 : : } Call EXESDEANONPAGED from kernel mode 
: 0988 1 § CALLING SEQUENCE: 
: Sons : } KRNL_CALL (DEANONPAGED, BUF) in Kernel mode 
: 0989 1 | FORMAL PARAMETERS: 
: 344! : BuF = address of buffer to deallocate (SIZE field indicates how big) 
: 0992 1 ' COMPLETION CODES: 
; 0995 1! 
; 0994 1 !<= 
; 0995 1 RETURN EXESDEANONPAGED ( .BUFFER ) ; 
OFFC 00000 DEANONPAGED: 
~ WORD seve R2,R3,R4,R5,R6,R7,RB,RI,RIO,RI1 ; 0980 
0 04 AC 00 00002 MOVL BUFFER, R 3; 0995 
000000006 00 a e Rense jee EXE SDEANONPAGED 3 


; Routine Size: 13 bytes, Routine Base: S$CODE$ + 0317 
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> e 
ke Main Routine gagorn 3 5 19:61:30 AX-11 etek ‘ 


WVERS = Check for different versions of -0ct-1984 1 


ZSBTTL ‘CHECK SWVERS = Check for different versions of VMS’ 
ROUTINE CHECK _SWVERS = 


lee 


SYSLOA.BUGSRC 


Check for different VMS versions in cluster. 


CALLING SEQUENCE: 
CHECK_SWVERS () 


FORMAL PARAMETERS: 
None 


COMPLETEION CODES: 
if different versions exist 
1 if no other version 


BEGIN 


LOCAL 
ITEM_LIST: SITMLST_DECL(ITEMS=1), 
My_vER, ' Own version number 
VER, ! Other's version number 
RET_LEN, 

STATUS; 
! 
Set up item List for SYSSGETSYI to get software versions 
SITMLST_INITCITMLST = ITEM_LIST 

(ITMCOD = S118 NODE _SUVERS, 


BUFADR = My_VER, 
RETLEN = RET_LEN)); 


Get my own VMS version number by calling SGETSYI 


F NOT SGETSYIWCITMLST=ITEM_LIST) THEN 
RETURN 1 ; ! Ignore error and return 


1 
i 
: 
I 
VER = .MY_VER ; ! Initialize other's version to be the same 


i Check software version of nodes in cluster by calling SYSSGETSYIW repeatedly 
and compare it with own version until no more node. 


(SID = -1; - ' wild card for all nodes 
ITEM_LISTC1,1TMSL_BUFADR] = VER ; 


WHILE (STATUS = SGETSYIW(CSIDADR=CSID, ITMLST=ITEM_LIST)) NEQ SS$_NOMORENODE DO 


IF NOT .STATUS THEN 
RETURN 1 ! Ignore error and return 


voe-001 

0g pica 

3061 iDYE O00 
DYCO00 


> INFOR 


; Referenced LOCA 


; Routine Size: 


764 


Cluster Server Process - Main Routine or gone 138? 19:4} 39 ort Oh ieensg V4.0-74 
CHECK_SWVERS = Check for different versions of “Oct-19 & SYSLOA.BUGSRCICSP.832; 
1053 
1034 ELSE if aver NEQ -MY_VER THEN 
1322 RETURN 0 ; ! Different versions of VMS 
1987 RETURN 1; ! ALL have same version 
L1:1040 
i symbol MY_VER is probably not initialized 


.EXTRN SYSSGETSYIW 
0004 00000 CHECK, suvERs: 


wO Save R2 
2 000000006 0 9 MOV S13SGEISVIW, R2 
3 § SUBL #32, SP 
4 10 AE : MOVAB =sITEM List $S$ITMBLKPTR 
80 10060004 BF p MOVL  $#282%60164, ($$ITMBLKPTR)+ 
80 6E 9E MOVAB MY VER. ($$1TMBLKPTR) + 
80 04 af SE MOVAB Cisrt EN, ($s { TRELKPTR)+ 
g 4 CLAL STTRBL KPT 
— 7¢ CLRO P) 
7E D4 CLRL SP) 
1¢ «AE OOF PUSHAB ITER LIST 
7E 7C CLRQ 0s =( SP py 
43 D4 CLRL (SP) 
2 F CALLS a.  SYSSGETSYIU 
1 0 € BLBC 
08 AE 6— 00 MOVL Ry “VER, VER 
OC AE 01 CE MNEGL D 
6D 08 AE 9E V VER, ITEM_LIST+16 
7E 7C CLRQ 0s = (SP) 
7E D4 CLRL ss = (SP) 
1c AE OOF PUSHAB ITER LIST 
7E 04 CLAL =(SPJ 
20 AE OF PUSHAB SID 
ze D4 CLRL sis SP) 
62 é CALLS SYSSGETS¥IM 
Q00000A00_—=s BF 0 p CPL oar #2560 
08 é BLBC STATUS, 2$ 
6E 08 AE p CPL i MY_VER 
be 1 BRB 5 
50 1 00 ¢ MOVL #1, RO 
4 RET 
50 04 CLRL =_ RO 
4 RET 


105 bytes, Routine Base: SCODE$ + 0324 


1059 1 
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0997 


1032 


1037 
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vo 


; Routine Size: 


; Routine Size: 


$G. OBAL$ 


Cluster Server Process = Main Routine 
MUMBLE = Dummy routine 


0 ! ZSBTTL '"MUMBLE - Dummy routine’ 


1 
1 
1 1 GLOBAL ROUTINE MUMBLE = RETURN 1 ; 


nw 


6 


0000 000 
aT: 
04 0000 
6 bytes, Routine Base: SCODES + 0380 


Virw 


ZSBTTL ‘CSPSSCRASH = Report bug' 
GLOBAL ROUTINE CSPSSCRASH (CODE) = 


SSSSSSSS 


fwn—-0O0@w 


BEGIN 

SEXIT (CODE = .CODE) ; 
RETURN .CODE ; 

END ; 


kd tt ot 
= RPI et ot ot 


oooo 


AnNN~w 


0000 000 
04 AC DD 0000 
009000006 98 01 FB 0000 
0 04 aC 00 0000C 
04 00010 
17 bytes, Routine Base: SCODES + 0393 
1075 1 
1076 1 
8 | pe 
1979 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


28 NOVEC, WRT, RD ,NOEXE,NOSHR, 


Be 18id0;s4 | ers Loa Be saesc¥e 835" 


-ENTRY Ys ee Save nothing 
MOVL wi, R 


ENTRY CSPSSCRASH, Save nothing 


PUSHL 
CALLS #1, SYSSEXIT 
MOVL CObE, RO 


LCL, REL, CON,NOPIC,ALIGN(2) 


1062 


CSP Cluster Server Process - Main Routine j-san-1 5 18:41: AX-11 Oh ieee -32 V4.0-74 P 3 C 
voe-001 CSPESCRASH - Report bug mt Hi 19:50:32 SYSLOA.BUGSR aescke: 832; a0 iB} ve 
; SOWNS ; NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, paktee'od | Tred b td 1 

; SCODES NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SPLITS 12 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

: cocccces Syabols ococeese Pages Processing 

3 File Total Loaded Percent Mapped Time 

; _$255$DUA18:(SYSLIBILIB.L32;1 18619 39 0 1000 00:01.9 


Information: 1 
Warnings: 0 
Errors: 0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CSP/OBJ=0BJ$:CSP MSRC$:CSP/UPDATE=(BUGS: CSP) 


86 a 0 
Size: 932 of e. + 496 data bytes 


Lexenes/CPU-Rin: 4 
pee | Used: 141 pages 
Compilation Complete 


1! AH-EF71A-SE 
VAX/VMS V4.1 SRC LST MCRF UPD 


